home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / mac / Utilities / Dialog Studio Lite 1.1.1 / Goodies / DS Icon Imbedder / Try This Script.scr < prev   
Encoding:
Text File  |  2001-02-28  |  909 b   |  21 lines  |  [TEXT/ToyS]
  1. set theDialog to {size:{223, 137}, style:standard window, closeable:true, name:"Custom Icons", default item:9, contents:{¬
  2.     {class:icon, bounds:{8, 8, 40, 40}, contents:2}, ¬
  3.     {class:icon, bounds:{48, 8, 80, 40}, contents:0}, ¬
  4.     {class:icon, bounds:{88, 8, 120, 40}, contents:1}, ¬
  5.     {class:icon, bounds:{8, 48, 40, 80}, contents:6001}, ¬
  6.     {class:icon, bounds:{48, 48, 80, 80}, contents:6002}, ¬
  7.     {class:icon, bounds:{88, 48, 120, 80}, contents:6003}, ¬
  8.     {class:icon, bounds:{128, 48, 160, 80}, contents:6004}, ¬
  9.     {class:icon, bounds:{168, 48, 200, 80}, contents:6005}, ¬
  10.     {class:push button, bounds:{132, 100, 202, 120}, name:"OK"}}}
  11.  
  12. dd install with fonts {name:"Charcoal", size:12} with grayscale
  13. set d1 to dd make dialog theDialog
  14.  
  15. repeat
  16.     set userItem to dd interact with user
  17.     if userItem = -1 or userItem = 9 then exit repeat
  18. end repeat
  19.  
  20. set values_of_d1 to dd get value of every item of d1
  21. dd uninstall